home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / disk / misc / Zip4mat.lha / Zip4mat / FormatIBM next >
Text File  |  1998-07-03  |  185b  |  7 lines
  1. requestchoice >env:FM "" "Are you sure you want to format this ZIP disk..? " Yes No
  2. if val $FM eq 1
  3.    FormatZIP 1230scsi.device 5
  4.    ziptool >nil: zpc: eject
  5. endif
  6. delete >nil: env:fm
  7.